  setdisplay(400,200,32,1):paper(8^8-1):ink(0):pen(0):cls:mousehide
  prints("pressing any key will create an empty document named 1.txt, rename it to 2.txt, and close this example")
  waitkey
  open"1.txt" for output as #1:print#1,"!":close#1
  rename("1.txt","2.txt")
